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As most of you are now aware, 
this issue is the first produced by 
Bytemaster and represents the merger 
of Super 99 Monthly and The Smart 
Programmer (formerly produced by 
Millers Graphics). So, it is quite 
appropriate that we begin with a 
message from Craig Miller. 



It has been awhile since the 
previous issue and once again I want* 
to thank everyone for their patience 
and understanding. In the Sept. '84 
issue we said that we were going to 
produce one more 64 page issue to 
complete everyone's subscription. 
Well, I'm glad to say that that didn't 
happen because that would have been 
the end of The Smart Programmer. From 
your calls and letters I know you 
didn't want to see it end and we 
didn't want that to happen either. We 
really liked doing the newsletter, but 
it was impossible to do it and come 
out with new products at the same 
time. Now, with Richard Mitchell as 
publisher and Editor, it will continue 
on, on a regular basis. This not only 
allows us to continue to write 
articles for the newsletter, but we can 
also continue to produce new products 
for the 4A. So, this merger of 
newsletters will help keep our orphans 
going strong! 

Some of you have called or 
written to ask why we are no longer on 
CompuServe**. That is one of those 



questions that is best answered with 
the old "No. comment". However, I'm 
pleased to say that Millers Graphics 
has signed, up on GEnie™. This service 
is considerably less expensive than 
CompuServe™ - $5.00/hr for 300 or 
1200 bps. They have also set up a 
message "area for Gram Kracker™ owners 
called the Kracker Box in the TI Round 
Table area on Page 575 where we will 
be adding new information. The TI 
Round Table section is new, but it is 
growing- fast thanks to all of the 
great people that are joining in. 
Hope to see you there. Oh yes, our 
Electronic Mail box there is MG. See 
Richard's article on GEnie™ for sign-up 
information. 

Many of you have asked us about 
our plans for the future and for the 
4A. Let me say that the 4A has been 
our sole supporter for the last 4+ 
years. It is what we do 100% of the 
time. We do not make any products for 
Atari, Commodore or any other brand of 
computer and we aren't planning on it. 
as long as you are out there 
supporting us we will be supporting 
the 4A. We really don't want to leave 
the 4A, it is our first and only home 
computer! As a matter of fact we have 
quite a number of new products in the 
works. As they near completion we 
will let Richard know so he can pass 
the information on to you. Doug 
Warren and I. also have a number of 
articles planned for The Smart 
Programmer as well as the continuation 
of memory maps. So, there is still a 
lot to be done! 
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We were wondering if you would 
like to see us release some tutorial 
video tapes for the 4A. We thought we 
could do some 1 hour videos showing 
the use of, say, Gram Kracker™, 
Explorer, DISk ASSEMBLER™ , Advanced 
Diagnostics and any new products, as 
well as other tutorials. Drop us a 
note and let us know what you think. 
Speaking of DJSkASSEMBLER™, we are now 
shipping this new piece of software 



that was written by 
has done a great 
shows - this Is a 
smart disassembler. 



Tom Freeman. Tom 
job and it really 
very powerful and 



Well, as usual, I've gone on long 
enough. Let me close this column out 
with a sincere THANK YOU for your 
support, and a great thanks to Richard 
Mitchell for his support of the 4A, 
which will allow The Smart Programmer 
and the 4A to continue on for a long 
time to come? 

Craig Miller 
Millers Graphics 
1475 W. Cypress Ave. 
San Dimas, CA 91773 



Many of you have inquired as to 
how the new subscription system will 

work. 

For those of you who were 
subscribers to The Smart Programmer, 
you are due 4 issues, so the last 
issue on your previous subscription 
will be dated September 1986. 



Ordinarily, publication mergers result 
in subscribers receiving the longest 
running subscription period of the two 
publications. Instead, what we have 
decided to do is grant a discount 
based on the number of pages you were 
entitled to and the rate at which you 
subscribed versus the number of pages 
you will receive. You'll receive the 
longest running subscription and your 
discount will be noted on your next 
label. The discount can be applied 
toward any Bytemaster product, 
including a renewal. 

In all cases, the expiration date 
on your current label is not accurate. 



Q&A 



Does Multiplan™ allow alphameric 

fields? 

Multiplan™ offers many of the 
features of a BASIC language. By 
making use of Multiplan™'s string 
functions, you can use a portion of a 
string in another cell and you can 
even convert a string into a number. 
The following demonstrates converting 
a teacher's gradebook, which includes 
both a letter and number grade as a 
string in cell R1C1 into a letter only 
in R1C2 and a number only in R1C3. 



~% 



1 "B090" 



MID{RC[-1] ,1,1) 



Those of you who were subscribers 
to Super 99 Monthly should note that 
next month the expiration date on your 
label will be extended 4 months, as 
there were no issues of Super 99 
Monthly during our transition period. 
You will now receive 16 pages instead 
of 12, at no extra charge. 

Subscribers who sent in payments 
after March 19 at our old rates will 
have your payment pro-rated to our new 
rates and any partial amount will be 
shown as a credit on your label. 

Now, for the case of those of you 
who subscribed to both The Smart 
Programmer and Super 99 Monthly. 



1 VALUE (MID (RC [-2 
],2,3)> 

The above is only one way of 
accomplishing the task. For the 
specific example, a teacher's 
gradebook, a more flexible approach 
would likely be to use a LOOKUP table. 
We'll examine uses for LOOKUP in a 
future issue. 



Is there a communications network 
that provides affordable service for 
99/4A users? 

GEnie™ provides 300 or 1200 bps 
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service at $5 per hour (night hours, 
day is $35 per hour), which is the 
best deal we've found. There is a TI 
Round Table for 99/4A users that 
includes a message base, download 
section (Xmodem and ASCII) and 
conferencing area. The Sysop is Mark 
Sumner, whose firm, CSI Design Group, 
has produced several fine 99/4A 
programs (9900BASIC, Windows and Spy's 
Demise™, to name a few). There's a 
sign-up fee of $18 that provides you 
with 3 free hours and a manual. Most 
areas of the U.S. can access GEnie™ 
through local numbers. Call 
1-800-638-8369 for on-line tours and 
sign -up (it's half- duplex). Key "HHH" 
to begin, then at the "u# H prompt, key 

ff SJM11000,aEHIE w , GEnie™ will guide 
you from there. Once you sign up, 
keying TI will get you to the TI 
Roundtable and if you want to read the 
message base (BBS) without pausing, 
key BRO ALLS NOR (Browse All Scroll No 
Reply), There is a conference on 
GEnie™ each Wednesday and Sunday at 
9 PM Eastern time. Well try to have 
a representative in oorference on Sunday 
evenings. Our Mail address is Bytemaster. 



What significant hardware products 
have been released recently? 

One of the major factors that 
sets the 99/4A apart from other 
computers is its availability on 
power-up (Have you noticed that 99'ers 
aren't enthralled with loading from 
disk so we can load from disk through 
some <cough> "advanced" DOS system?). 
Two battery-backed products released 
in recent months lend outstanding new 
capabilities to the 99/4A on power-up. 

Millers Graphics' Gram Kracker™ 
is a device that plugs into the module 
port and yields full access to address 
space previously available only as 
pre-programmed GROM> Depending on the 
module environment, RAM can also be 
modified and/or previously unavailable 
RAM can be accessed. We'll be 
covering GK regularly, so it is 
sufficient to mention now that the 
product functions reliably. 

The Horizon RAMdisk is a PEB card 

that provides access to up to 180K of 



files (including programs) on 
power-up, functioning (from the user's 
perspective) exactly like a disk 
drive except much faster. The Horizon 
RAMdisk provides user-selectable CRU 
addressing from >1000 to >1700, so 
that the card cannot be rendered 
incompatible with other cards. The 
card uses low-power CMOS static RAM 
chips and Ni-Cad batteries. Users of 
the Horizon RAMdisk are consistenly 
reporting being very satisfied with 
the product. Bare printed circuits 
with instructions, software and 
documentation are $50 each ($42 in 
quantities of four or more through 
user groups) and parts are approx- 
imately $72 for a SS/SD card or 
$105 for a DS/SD card. Ready-to-run 
cards are also available. For more 
information, contact Horizon Computer, 
Limited, P.O. Box 554, Walb ridge, OH 

43465, USA. 



16 ITEMS ON THE MAIN MENU 

In the Gram Kracker™ manual it 
states that you can only have 9 items 
on the TI Menu at one time. After 9, 
funny looking sprites start to appear 
on the screen. Here is a solution for 
this problem if you are using MSAVE 
and you want more than 9 items on the 
menu. This patch takes out the double 
spacing between items listed on the 
menu. This allows more items to 
appear before the Power Up routine 
starts to place them in the Sprite 
Attribute Table. 

1 . With an operating system installed 
in Gram 0, select Edit Memory from 
the Gram Kracker™ menu. Next press 
FCTN = for Hex, FCTN 1 for Gram 
Memory and FCTN 5 for Search. 

2. Use 0000 for the Start address and 
1000 for the Finish address. Next, 
press FCTN 9 and type in A3 52 00 3A 
for the Hex string to search for, 
press the left arrow once and then 
press ENTER to start the search. 

3. When the Hex string is found (our's 
was at g02El), press FCTN 5 to 
leave search and then press FCTN 9 
to put the cursor in the memory 
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window. Turn on Bank 1 to disable 
write protection and then change 

the hex string to: 

A3 52 00 1A 

4. Next, press FCTN 5 to activate 
search again, and then press FCTN 9 
to put the cursor in the Search 
String Input area. The start and 
finish addresses are OK where they 
left off. Type in 00 02 28 60 for 
the Hex string to search for, press 
the left arrow once and then press 
ENTER to start the search. 

5. When the Hex string is found, our's 
was at g0380, press FCTN 5 to leave 

search. The cursor should be in 
the memory window. Turn on Bank 1 
to disable write protection and 
then change the 3rd, 7th and 1.2th 
bytes on the first row from: 

00 02 28 60 00 D6 28 AA 43 95 D2 29 



to: 



00 02 40 60 00 D6 40 AA 43 95 D2 41 

This corrects a problem with the 
foreign language auto start check 
routine. It was using >8328 and 
>8329 for temporary storage. We 
have moved the temporary storage 
place to >8340 and >8341. This 
keeps It from wiping out part of 
the stack of start address for the 
program selections. With 16 items 
on the menu the program start 
addresses are stacked at >8300 
through >833F. 

6. After you have made this modifi- 
cation, press CTRL = to leave the 
Memory Editor. Turn on Write 
Protection. Check your modifi- 
cation by pressing Reset and then 
go to the TI Menu. If everything 
is OK you might want to save this 
modified Operating System by using 
the Load Save Console selection 
on the Gram Kracker™ Menu. 

If you make this modification, 
you will need to install another 
character set (CHARA1) into the TITLE 
SCREEN Characters with the NEWCHARS 

Utility on the Gram Kracker™ disk (see 
page 27 in the Gram Kracker™ manual and 



the addendum that came with it). The 
standard Title Screen characters are 8 
pixels high so there isn't any blank 
space between rows when they are not 

double spaced and it makes it hard to 
read. 

Now, when you have more than 9 
items on the menu the selections will 
become the :;< = >?© characters instead 
of numbers since these are the 
characters that follow in ASCII order. 
NOTE: You can actually place 17 items 
on the menu BUT the first selection 
(i.e. TI BASIC) will NO LONGER WORK 

because its start address in scratch 
RAM gets destroyed!! Be forewarned, 
placing 17 items on the menu will put 
you into a precarious situation! 



^ 



LIST Width Modifications 



With Extended Basic loaded into 
the Gram Kracker™ you can change the 
LIST "device" width for your output 
device. This allows you to easily list 
your programs to printer in 28 
columns, 132 columns or any width you 

choose. This same change will .also 
change the DIS/VAR file width if you 
LIST to disk. 

To make this change load Extended 
Basic into the Gram Kracker™ and then 
use the Gram Kracker™'s Edit Memory 
selection. Next press" FCTN = for Hex, 
FCTN 1 for Gram Memory and FCTN 5 to 
activate the Search function. The 
Start address is 9000 and the Finish 
address is 9800. The Hex string to 
search for is: 

00 12 00 00 00 

When this is found press FCTN 5 to 
leave Search and FCTN 9 to put the 
cursor in the Memory Window. Turn on 
Bank 1 to disable Write Protection and 
move the cursor to the third 00 after 
12 and change it to the width you 
would like (in Hex). In our XB this 
was found at g9170 and the byte to 
change was at g9 1 74. Examples: 



00 


12 


00 


00 


00 


= default 80 


column 


00 


12 


00 


00 


1C 


= 28 column 


listings 


00 


12 


00 


00 


84 


* 132 column 


listings 


00 


12 


00 


00 


FE 


= 254 column 


listings 



n 



^ 
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The area you are changing is part 
of the default PAB for an Extended 
Basic LIST to a device. Since most of 
it is zeroed out it allows the card's 
DSR (i.e. RS232 or DSK) to set its own 
default for width. When you place a 
value here the card will use it 
instead of the default of 80 (>50). 

If you want to LIST a 28 column 
program to disk and then load it into 
Tl-Writer or the E/A Editor you will 
need to convert the file back into 
DIS/VAR 80 format. To do this simply 
run it through the following XB 
program, where TEST is a DIS/VAR 28 
file and TESTA will be the DIS/VAR 80 
file to be loaded into an editor. 



> 
> 
> 
> 



100 OPEN #1:"DSK1 
ABLE 28 

110 OPEN #2:"DSK1 
120 LINPUT #1:A| 
130 PRINT #2:A$ : 

140 IF EOF (1) THEN 
L ELSE 120 



TEST",VARI 

TESTA" 

PRINT A$ 
CALL CLSAL 



If the file is large, you can 
easily convert it from DIS/VAR 28 to 
DIS/VAR 80 with a sector editor such 
as Advanced Diagnostics. To do this, 
find the File's Header (File Descriptor 
Record) by doing a Find File. The 
"Sector" pointer at the top of AD's 
screen points to the File's Header 
Sector. Edit this sector and change 
the 17th byte, in hex, from 1C to 50 
and then rewrite the sector. NOTE: 
This will only work if you are 
converting files to a longer logical 
record length, i.e. DIS/VAR 28 or 

DIS/VAR 40 into DIS/VAR 80. 

To change the LIST width in 
console BASIC, copy BASIC from GROMs 1 
and 2 to GRAMs 1 and 2, then Search 
GRAM 2 (g4000 to g5FFF) in a manner 
similar to that described above for 
Extended BASIC. We found our bytes to 
be changed at g4822. The changes 
would be the same values as for 
Extended BASIC. 



Notes On STRASG 

Gram Kracker T " users should 
proceed with caution when making use 



of GRAM 2 for anything other than TI 
BASIC. The STRASG utility routine in 
Editor/Assembler and Mini Memory does 
a GPLLNK to >0038 and branches to 
>4D12, TI BASIC, for engaging the Get 
String Space routine. So, obviously, 
if the program you are running makes 
use of STRASG while you have TI BASIC 
disabled, the program will be unable 
to complete the routine and will 
crash. One of the most commonly used 
programs that accesses STRASG is the 
BSCSUP program on the E/A disk. We're 
looking into the possibility of a fix 
that would bypass the BASIC access, 
but for now don't use STRASG while 
GRAM 2 is loaded with anything other 
than TI BASIC. 



version of 

(a Super Cart 

module with 

(Cart) is an 

which is a 



A Tl-Writer and Fast-Terra Menu 



Many readers have asked how to 
have a terminal emulator with a large 
text capture buffer available from the 
Tl-Writer module. Paul Chariton has 
recently released a 
Fast-Term for Super Cart 
is an Editor/Assembler 
RAM) users. Fast-Term 
update to Fast-Term, 
Fairware program (suggested payment 
for all of Fast-Term is $15, available 
from Paul Charlton, 1110 Pinehurst 
Ct., Charlottesville, VA 22901. It 
runs from all assembly support 
modules, such as E/A, and requires 
disk and 32K. As with all Fairware, 
send disks, mailers, postage, etc. for 
the program. Disks should be at least 
720 sectors if you want the source 
code.). Fast-Term (Cart) is not a 
full implementation of Fast-Term, but 
rather is primarily useful for taking 
advantage of its large text capture 
buffer. To install Fast-Term (Cart) 
into a GK Tl-Writer module, follow 
these instructions (Be sure to save 
anything you have in GRAM 2 or at RAM 
c6000 to c7FFF before proceeding!): 



1) Load Editor/Assembler and turn Bank 
1 on, emulating a "Super Cart". 

2) From Option 3 of E/A, Load and Run, 
run the program. Fast-Term (Cart) 
will now appear on your console 
Menu. 
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3) Go to the GK Editor. Select address c6000. Select a START address of 6000, 
FINISH 7FFF and DESTINATION g4000. 

4) Enable GRAM 1-2. Press <FCTN> <2>, Move. Fast-Term (Cart) will now be in 

GRAM 2. 



* 



5) Leave the GK Editor and load Tl-Writer. 

6) Return to the GK Editor and reverse your Move process by selecting address 

g4000, START 4000, FINISH 5FFF, DESTINATION c6000. 

7) Be sure you have GRAM 1-2 enabled and Bank 1 on. Press <FCTN> <2>, Move. 
Your Tl-Writer module now includes a console Menu option for Fast-Term 
(Cart). 

8) Save your new Tl-Writer and restore the GRAM 1-2 switch to TI BASIC. To use 

Fast-Term (Cart), be sure your Bank 1 is on. 

Next month, we'll have some more ideas on how you can use GK to make use 
of Fast-Term even easier than it already is (it's a very good program). 



Editor Assembler LOW MEMORY EXPANSION after CALL INIT 



>2000 

>2002 

>2004 

>2006 

>2008 

>2022 
>2022 
>2024 
>2026 
>2028 
>202A 

>202C 
>202E 
>2030 
>2032 
>2034 
>2036 
>2038 
>203A 

>203C 

>2094 

>209A 

>20BA 

>20D9 

>20FA 

>20FC 

>20FE 

>20FF 



>A55A 
>2128 
>2398 
>225A 

UTLTAB 
>0000 
>A000 
>FFD7 
>2676 
>3F38 

>0000 
>0000 

>0000 
>0000 
>0000 
>0000 
>0000 
>0000 



>0064 

>2000 
>2E 
>AA 



Constant that indicates CALL INIT has been executed. 
Start address of NAME LINK routine (i.e. Start Name) 
Start address of Tagged Object Code Loader from GPL 
Start address of CIF (Convert Integer to Floating Point) 
Start of Variable Storage area 
(Utility Table Area) 

for program just loaded 

High Memory 

High Memory 

Low Memory 

Low Memory 

REFs and DEFs thru >3FFF 



Default START address 

First Free address in 

Free address in 
Free address in 
Free address in 
pointer to default 
Checksum 

Pointer to FLAG byte in 
GPL return address 
CRU base of Peripheral 
Entry address of DSR 
Device Name Length 
Pointer to Device Name in 
Version Number of DSR 



Last 

First 

Last 

also 

Saved 

Saved 

Saved 

Saved 

Saved 

Saved 

Saved 

Saved 

Start 

Start 

Start 

Start 

Start 

Data 



PAB {in VDP) 



O1100 for Disk Controller) 



PAB (in VDP) 



of 
of 
of 
of 
of 
100 



8 BYTE 

UTILITY 

DSRLNK 

USER 

LOADER 



RECORD Buffer 

Workspace Registers 



Workspace 
Workspace 
Workspace 



Registers 
Registers 
Registers 



Data >2000 (H20 and H2000) 

Byte Decimal Point ' . ' 
Byte >AA for Validation 



^ 



^ 
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Editor Assembler LOW MEMORY EXPANSION Continued 



>2100 
>2100 
>2102 
>2104 
>2106 
>2108 
>210A 
>210C 
>210E 
>2110 
>2112 
>2114 
>2116 
>2118 
>211A 
>211C 
>211E 
>2120 
>2122 
>2124 
>2126 

>2128 

>218A 

>2196 

>21C4 

>21DE 

>21F4 

>2200 

>220E 

>221A 

>2228 

>225A 

>22B2 

>2398 

>23BA 

>2676 

>3F38 

>3F38 

>3F40 
>3F48 

>3F50 
>3F58 
>3F60 
>3F68 
>3F70 
>3F78 
>3F80 
>3F88 
>3F90 

>3F98 

>3FA0 
>3FA8 
>3FB0 
>3FB8 



UTILITY 
>2094 
>21C4 
>2094 
>2196 
>2094 

>21DE 

>2094 
>21FA 
>2094 
>2200 
>2094 
>220E 
>2094 
>221A 
>2094 
>2228 
>209A 
>22B2 
>20DA 
>23BA 
Start 



VECTOR TABLE (ie: BLWP ©KSCAN ) 

GPLLNK Utility workspace pointer 
Start address for BLWP ©GPLLNK 
XMLLNK Utility workspace pointer 
Start address for BLWP ©XMLLNK 

Utility workspace pointer 
address for BLWP ©KSCAN 

Utility workspace pointer 
address for BLWP @VSBW 

Utility workspace pointer 
address for BLWP ©VMBW 

Utility workspace pointer 
address for BLWP ©VSBR 

Utility workspace pointer 
address for BLWP ©VMBR 

Utility workspace pointer 
address for BLWP @VWTR 
DSRLNK Utility workspace pointer 
Start address for BLWP ©DSRLNK 
LOADER Utility workspace pointer 
Start address for BLWP ©LOADER 
of Name Link routine. (Finds Start name in REF/DEF Table) 



KSCAN 

Start 
VSBW 

Start 
VMBW 

Start 

VSBR 

Start 

VMBR 

Start 

VWTR 
Start 



Routine to Return to Assembly Language from GPLLNK 

(Link to system Utilities) 
(Link to GPL Routines) 
(Keyboard Scan) 
(VDP single byte write) 
(VDP multiple byte write) 
(VDP single byte read) 
(VDP multiple byte read) 



Start 

Start 

Start 

Start 

Start 

Start 

Start 

Start 

Start 

Start 

Start 

Start 

First 

Last 

Start 

UTLTAB 

PAD 

GPLWS 

SOUND 

VDPRD 

VDPSTA 

VDPWD 

VDPWA 

SPCHRD 

SPCHWT 

GRMRD 

GRMRA 

GRMWD 

GRMWA 

SCAN 

XMLLNK 

KSCAN 



of 
of 
of 

Of 

of 

of 
of 
of 
of 
of 
of 
of 



XMLLNK 

GPLLNK 

KSCAN 

VSBW 

VMBW 

VSBR 

VMBR 

VWTR 

CIF 

DSRLNK 

Tagged 
LOADER 



Routine 
Routine 
Routine 
Routine 
Routine 
Routine 
Routine 
Routine 
Routine 
Routine 



(Write to VDP register) 
(Convert Integer to Floating Point) 
(Link to DSR routines) 
Object Code Loader when coming from GPL 
Routine. (Loads Tagged Object Code - DIS/FIX 80) 
Free address in Low Memory (Pointed to by >2028) 
Free address in Low Memory (Pointed to by >202A) 
of Default E/A REF Table. 



>2022 
>8300 

>83E0 
>8400 
>8800 
>8802 
>8C00 
>8C02 
>9000 
>9400 
>9800 
>9802 
>9C00 
>9C02 
>000E 
>2104 
>2108 



Pointer to Utility Table in Low Mem 

Start address of Scratch Pad Ram 

GPL Workspace pointer 

Location of the Sound Chip 

for VDP Read Byte port 

for VDP Read Status port 

for VDP Write Byte port 

for VDP Write (set) Address port 

for Speech Read port 

for Speech Write port 

for Grora/Gram Read Byte port 

for Grom/Gram Read Address port 

for Grom/Gram Write Byte port 

for Grom/Gram Write (set) Address port 

BL address for key scan routine in Console ROM 

BLWP address for XMLLNK Routine 

BLWP address for keyboard scan 



Address 
Address 
Address 
Address 
Address 
Address 
Address 
Address 
Address 
Address 



+ 
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Editor Assembler LOW MEMORY EXPANSION Continued 



>3FC0 
>3FC8 
>3FD0 
>3FD8 
>3FE0 
>3FE8 
>3FF0 
>3FF8 



i 
i 

» 
* 

i 
i 

i 
i 

i 

! 

t 
1 

I 
I 

I 
I 



VSBW 

VMBW 

VSBR 

VMBR 

VWTR 

DSRLNK 

LOADER 

GPLLNK 



>210C 

>2110 

>2114 

>2118 

>211C 

>2120 
>2124 

>2100 



BLWP 
BLWP 
BLWP 
BLWP 
BLWP 
BLWP 
BLWP 
BLWP 



address for 
address for 
address for 
address for 

address for 
address for 
address for 

address for 



VDP Single Byte Write 

VDP Multiple Byte Write 

VDP Single Byte Read 

VDP Multiple Byte Read 

VDP Write To VDP Registers 

DSRLNK Routine 

Tagged Object Code Loader 

GPLLNK Routine 



T 



^ 



Editor Assembler HIGH MEMORY EXPANSION 



>A000 

>A000 
>FFD7 

>FFD8 
>FFF8 

>FFFC 
>FFFE 
>FFFF 



START OF HIGH MEM-EXPANSION 

First Free address in High Mem (Pointed to by >2024) 
Last Free address in High Mem (Pointed to by >2026) 

XOP 1 Workspace 

XOP 1 First Instruction (Usually a JMP , B, BL or BLWP) 



Workspace Pointer for LOAD Interrupt 
Start Address (PC) for LOAD Interrupt 

END OF HIGH MEMORY EXPANSION 



(non-maskable interrupt, 

not DSK1.LOAD) 



f 



NOTE: When RORG (Relocatable Origin) DIS/FIX 80 files are loaded by the E/A 
Tagged Object Code Loader they are loaded at >A000 by default. The loader 
looks at the value in >2024, which contains >A000 at first, and loads the 
next word(s) according to this value. 



If the file contains any AORG 
the programmer specified (i.e. 
to. Also, with AORG code this 

loaded. 



directives the loader will load the code where 
AORG >C000) instead of where the pointer says 
pointer at >2024 is not updated as the file is 



Since the E/A Tagged Object Coode Loader resides in Low Memory Expansion, 
>23BA - >2675, you can not use this loader to load this area of memory since 
the loader will get wiped out. Also, since this loader uses other routines in 
Low Mem and other addresses for storage, it should not be used to load >2000 - 
>23B9 either. However, you can use the Mini Mem's loader to load this area of 
memory since its loader resides in the cartridge ROM and leaves ALL of Low 
and High Mem free for your programs. 



If the file is a PROGRAM IMAGE type file the Program Loader built into 
E/A module (5 RUN PROGRAM FILE) loads the file back into the memory it 
SAVED from with the SAVE Utility. This loader is written in GPL code 
resides entirely in the E/A module so it also leaves ALL of Low and High 
free for your programs. 



the 

was 
and 

Mem 



i*- 
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5 th 1 



FORTH 



by Mariusz Stanczak 



First, let's cover our mail. 
Some of it has gotten pretty old, 
though I hope most of the trivial 
problems we all have in the beginning 
have long been solved. 

There has been an aura of 
misconception around FORTH. If your 
letters are any indication, it seems 
that its presence couid be attributed 
in large part to a misunderstanding of 
what FORTH is and/or what it is for. 
It is not a conventional language by 
any means. Its strength and beauty 
comes, indeed, from a very unconven- 
tional idea of leaving all the doors 
to the system opened. Traditionally, 
one would try to match a language to 
the problem to be solved. There are 
some serious drawbacks (availability 
of languages on one's machine, one's 
ability to make the proper choice, 
etc.) to this approach. FORTH's 
greatest power comes from the fact 
that it is, first of all, a pro- 
gramming environment for creating 

such a language that best describes 
your solution to the problem. Very 
important words that describe this 
environment are: interpretative, 
standarized and extensible. And, atop 
of all that, is offering a choice of 
either a total machine independency, 
which makes the 99/4A "look like" any 
other computer running FIG-FORTH, or 
total machine control. The FORTH 
system, as it comes to your computer, 
is not designed to be a language for 
writing of complex applications. 
Instead, it supplies you with tools to 
build what Leo Brodie, in his book 
THINKING FORTH (Spectrum Books), calls 
lexicons. Brodie states: 

What you should do is write your 
own languages in FORTH (lexicons) 
to model your understanding of 
the problem, in which you can 
elegantly describe its solution , 

Brodie steps through the entire 
premise of using lexicons to extend 
FORTH into ap pi i c a t i o n - o ri e n t e d 
languages, so be sure to read the 

book! 



Once we understand the benefits 
of the Brodie methodology, it becomes 
quite obvious why FORTH's absolute 
speed is a secondary consideration. 
FORTH is primarily a development 
environment, and it offers the tools 
for achieving ease and clarity needed 
at that stage. When our application 
is written and thoroughly tested we 
can shift our energy towards the goals 
of speed and compactness of the final 
product (This is a subject in itself 
so we will explore some means of 
achieving those goals some time in the 
future.). Still the speed of TI-FORTH 
programs on the 99/4A is the source of 
disappointment for many of you. It's 
not even remotely close to what TI 
wanted (?) it to be, i.e. to be only 
about two times slower than equivalent 
assembly program. WYCOVE-FORTH users 
are much better off. Their systems 
outrun TI-FORTH in all but disk access 
operations and are 2-10 times faster. 

There are three major variations 
of threaded interpretative languages 
(see the book Threaded Interpretative 
Languages by R. G. Loeliger). Both 
FORTHs for the 99/4A are of the 
indirect threaded variety, which is 
right in the middle (between direct 
and token threaded) as far as the 
ratio of overhead during execution 
versus compactness of code is 
concerned. Being a copy of FIG-FORTH, 
WYCOVE -FORTH 's colon definitions 
exhibit very little optimization, so 
there is some room for improvement, 
but it's not really worth the effort. 
TI-FORTH, on the other hand, seems to 
be an unfinished product. Moreover, 
it is by design fatter than Wycove's 
by about 5K and, on average, it goes 
(also by design) through 2 to 3 more 
links. Not much, short of redesigning 
the system, can be done to improve 
TI-FORTH's speed, although, I am told, 
some people are working on it (good 
luck!). 

Just a thought: since most of that 
"extra" 5K in lower memory is 
composed of assembly routines 
(marked on the memory, map as "99/4 
support for FORTH" and "Assembler 
support") that are currently 
accessed through one extra level 
of indirection (LINK register), 
the communication with those 
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routines could be (?) changed to a 
direct threaded mode using JMPs 
for going in and a normal return 
through NEXT. 

The promised dictionary update 
for WYCOVE-FORTH is a set of very fast 
shift instructions. The shift words 
below are named after their assembler 
counterparts as their behavior mimics 
them exactly. 

SCREEN # 21 

( CREATEd Shift Instructions) BASE © HEX 

1 CREATE SRA { n ct — n_shifted ) SMUDGE 

2 C036 , \ MOV *SP+,R0 get count 

3 C056 , \ MOV *SP,R1 get value 

4 0801 , \ SRA R1,0 <-ct defaults to R0 

5 C581 , \ MOV R1,*SP >PS 

6 0459 , \ B *NEXT return 

7 CREATE SRL SMUDGE 

8 C036 , C056 , 0901 , C581 , 0459 , 

9 CREATE SLA SMUDGE 

10 C036 , C056 , 0A01 , C581 , 0459 , 

11 CREATE SRC SMUDGE 

12 C036 , C056 , 0B01 , C581 , 0449 , 

13 BASE ! ;S 
14 

15 Routines above are both more compact 

16 and faster than the ones proposed in 

1? the manual. The shift count is a value 

18 between and 15. If the value equals 

19 then the effective count eguals 16. 

20 -NOTE- The above words will work with 

21 systems from version 2.0 up; vl.0 uses 

22 different registers. Check your manual. 

23 -END OF NOTE- 
24 

25 



As you have probably already 
noticed, I do most of my playing 
around in WYCOVE- FORTH; so, 
inevitably, this will sometimes get me 
in trouble with all of you that use 
TI-FORTH. Last time, contrary to my 
assurance that the SSMOVE will work 
with either system, the code published 
applied to the former environment. The 
word R/W-CLOSE is specific to that 
system and is needed to force FORTH to 
read the directory of a floppy newly 
inserted into a drive on the next I/O 
on the disk subsystem. I hope you 
caught that. 

One more thing before we close 
for this issue. When you send your 
work to us, which we do appreciate, 



pleased!!), try your best to make it 
readable. Use meaningful names, do 
not cram your screens, do not optimize 
the code unless you retain its 

readability. For a whole collection 
of other do's and don'ts you can 
choose from freely, let me refer you 
again to THINKING FORTH , Basically, 
help me to understand your code and 
its possible applications. Most of 
all, comment whenever necessary and 
describe not only the net effect a 
word has on the PS but also all items 
needed and/or changed by it. 

In the spirit of the above, all 
of the code you will see in this 
column will be mainly of instructional 
value. Unless otherwise noted, it 
will not be optimized and it might 
take more memory and/or run slower 
than possible implementations. 
Believe me, there is code that you 
would not want to decipher from its 
optimized form. 

Beginning with this issue, The 
Smart Programmer will start arriving 
at your mailboxes monthly; it will 
contain more of everything that makes 
it the best magazine around for the 

99/4A. So, this column on FORTH will 
also expand, I hope, proportionally to 
the rest of the magazine and to the 
time I can spend writing it (the time 
it takes me to write the column has 
exceeded my worst expectations; but on 
the brigther side, the results have 
also taken care of my English class 
assignments). Your contributions are 
very much welcomed. If you stumble 
upon some interesting code, data 
structure implementation in Forth, 
article that sparks questions or ideas, 
write to us and make 5 th 1- =FORTH your 
forum on FORTH for the benefit of all. 

Until the next time. MS 

P.S.: Dr. Dobb's Journal devoted its 
#10, instead of #9, issue to FORTH in 
1985. It sports a complete description 
and listing of a FORTH target 
metacompiler for FIG -FORTH which, 
unfortunately, will not run (as far as 
I could tell on first examination), on 
the 99/4A under WYCOVE-FORTH without 
extensive modifications to the source 
code (which I will not get at its 
asking price), # but it might run under 



** 



<r 



<p 
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TI-FORTH. If anybody wants to give it a shot, 
efforts are. The published compiler, in many' 
to what I have been working on for some time 
getting over the quirks of the FIG model 



Lastly, a disclaimer for all the 
ycove Systems Ltd. hasn't pulle* 
distributing and supporting its product, 
the way, is Wycove's side, side business. 



let me know how successful your 
design details, is quite similar 

now, although our approaches to 
are diametrically different. 



the malcontents spreading rumors around; 
d out of the market and it is still 
WYCOVE-FORTH, 



arket and it is still 
for the 99/4A, which, by 



Screen 100 




1 
2 
3 
-4 
5 
6 
7 
8 
9 

10 
11 
12 
13 
14 
15 



Since the next few screens have gotten pretty crowded 
and I did not have time to edit them, here follow a few 
words on their content. The six screens cover a high 
level FORTH decompiler that in its original version was 
published in "FORTH Dimensions". Adapted for the /4A, 
it still has a minor bug I agreed to live with. The top 
word, RDCP, expects to be followed by the definition of 
interest. Pressing <ENTER> key will drop the process to 
next lower level. Pressing <q> key will exit the 
program and any other key will continue run on the same 
level. A non-zero value in KEYSW will permit a 
continuous operation as if the <ENTER> key was depressed 
throughout the run. 



Screen 101 



{ 


1 


2 


3 


4 


5 


6 ' 


7 ' 


8 


9 : 


10 : 


11 : 


12 : 


13 : 


14 : 


15 



( Recursive Decompiler - 1 ) BASE->R HEX 



VARIABLE GIN 

VARIABLE BASESAV 

VARIABLE KEYSW 

VARIABLE RDFEN 

BL 2- @ CONSTANT CONST. ADR 

BASE 2- @ CONSTANT USERV.ADR 

GIN 2- @ CONSTANT VAR.ADR 

U. D. ; 

GOV OVER @ 2+ ; 

2+D 2+ DUP ; 

.G@ 4 D.R GIN @ ; 

DIN CR DUP .G@ SPACES ; 

GIN+ CR OVER ,G@ 2+D GIN ! SPACES 



— > 
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Screen 102 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



Recursive 

GCHKTYP 
CASE 



Decompiler - 2 ) 




ENDCASE 



LIT OF 1 

BRANCH OF 1 

0BRANCH OF 1 

(OF) OF 1 

(LOOP) OF 1 

(+LOOP) OF 1 

SWAP 



ENDOF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 
ENDOF 



1KEY ( pfa — pfa c ) KEYSW @ 
IF 7TERMINAL 

IF 51 ELSE DUP RDFEN @ U< 
IF BL ELSE 0D THEN THEN 
ELSE KEY THEN ; — > 



Screen 103 




1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 

12 

13 

14 

15 



{ Recursive Decompiler - 3 ) 



GCHK ( 

CASE 
OF 

OF 
OF 



pfa — pfa [altered] ) 1 

GOV ' COMPILE = 

2+D @ 2+ NFA ID. ENDOF 

GOV GCHKTYP 

2+D @ SPACE U. ENDOF 

GOV ' (.") = 

2+D COUNT TYPE DUP C@ 1- + ENDOF 



ENDCASE 2+ -2 GIN +! 



^ 



CK: ( pfa — pfa f ) 

DUP CFA @ ' : CFA @ = 



— > 



Screen 104 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



■I 



{ Recursive Decompiler - 4 ) 



DISTYPE ( nfa — ) 
DUP C@ 40 AND 

IF ." [COMPILE] 
ELSE DUP ID. PFA 
CASE CONST. ADR 
VAR.ADR 
USERV.ADR 
DROP 
ENDCASE 
THEN ; — > 



ID. 


► 










CFA 


DUP @ 








OF . 


It 

1 


const 


" EXECUTE 


U. 


ENDOF 


OF . 


If 


var " 


EXECUTE @ 


U. 


ENDOF 


OF . 


ll 

^ 


user ' 


" EXECUTE @ U. 


. ENDOF 



*m 
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Screen 105 

{ Recursive Decompiler - 5 ) 

m, 1 : - (GOESINTO) { pfa — ) CK: 

r 2 IF 2- DIN ." :" 2+D NFA C@ 40 AND 

3 IF ." IMMEDIATE" THEN 

4 BEGIN DUP @ DUP ' ;S CFA = 

5 OVER ' (;CODE) CFA = OR 0= 

6 WHILE 

7 2+ GIN+ DUP NFA DISTYPE 

8 1KEY CASE 

9 51 OF SP! BASESAV @ BASE ! QUIT ENDOF 

10 D OF MYSELF ENDOF 

11 55 OF DROP DROP R> DROP -2 GIN +! ENDOF 

12 DROP ENDCASE GCHK 

13 REPEAT CR 

14 GIN @ 6 + SPACES 2+ NFA ID. 

15 THEN DROP ; — > 

Screen 106 

( Recursive Decompiler - 6 ) 

1 
2 

3 : RDCP BASE @ BASESAV ! HEX 

4 -FIND 

5 IF DROP GIN ! CK: 

6 IF (GOESINTO) 

7 ELSE NFA DISTYPE 

8 THEN 

9 ELSE ." Not in Dictionary" 

10 THEN 

11 CR. BASESAV @ BASE J ; 



r- 




12 

13 



14 


HERE RDFEN ! R->BASE ;S 


15 


¥ ^^ 




4A2A * 




\ 




3A2A * * 3A1A 




\ / 




2A2A * * 2A1A 




\ / 




1A2A * * 1A1A 




\ / 




AA2A* 




/ 


3BBB * *AA1A 




\ *cccc / 


2BBB 


* ! / 




\ ! * 3AAA 


1BBB * | / 




\ 1 * 2AAA 




BBBB* / 




! * 1AAA 




!/ 




*AAAA 

i 

i 




i 
i 

* FORTH 

i 

i 

i 
i 

i 



* LIT 
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RESTORE 



REPLACE STRING 



While RESTORE has several forms 
and many uses, one aspect of its use 
is not fully documented in the 
Extended BASIC or BASIC manuals. 

When using a complex PRINT 
to multiple devices, it would be 
useful to loop through the devices. 
However, when attempting to access a 
particular record in a RELATIVE file 
and trying to use the same statement 
to PRINT to a printer, an error 
message is evoked due to printers not 
being multi-record devices. The 
solution is to use RESTORE prior to 
the PRINT statement. Here is an 
example: 

> 100 ON WARNING NEXT 

> 110 OPEN #l:"PIO" 

> 120 OPEN #2:"DSK2. REPORT", DI 
SPLAY , FIXED 80 , UPDATE , RELAT 
IVE 7 

> 130 DISPLAY AT(5 f l)ERASE ALL 
:"SELECT DAY <MON=l - SUN=7) 

" : "I" : "SALES" : "0" : "SALES TAX 
" :"0" 

> 140 ACCEPT AT (6,1) VALIDATE (" 
1234567")BEEP SIZE(-1):D 

> 150 ACCEPT AT { 8,1) VALIDATE (D 
IGIT, " ."JBEEP SIZE(~7):A 

> 160 ACCEPT ATU0,1)VALIDATE( 
DIGIT," .") BEEP SIZE(-7):B 

> 170 FOR 1=1 TO 2 

> 180 RESTORE #2,REC D-l 

> 190 PRINT #1, USING "DAY # 
SALES $####.## SALES TAX $ 
####.## TOTAL $####. ##":D, 
A,B,A+B 

> 200 NEXT I 

> 210 CLOSE #1 :: CLOSE #2 :: 

END 

If more than one disk file were 
to be accessed, line 180 could be 
changed to an IF-THEN statement, with 
" 2 " being changed to "I" and the 
FOR-NEXT loop being incremented 
through the proper number of files. 

Many of you have indicated that 
you needed an example of complex use 
of PRINT USING, so, hopefully, the 
above example will help you to 

understand that statement also. 



The Tl-Writer command Replace 
String (RS) is very powerful. Pages 
86 and 87 of the manual offer a number 
of examples of the usage of Replace 
String. 

While the manual makes it clear 
how to replace a string, it makes no 
mention of inserting a string. 

To insert a string, the first 
requirement is, obviously, that the 
same number of spaces be blank at the 
end of the line as the number of 
characters you wish to insert. Next, 
you must enter Fixed Mode, by pressing 
<CTRL 0> (Word Wrap Mode may give you 
different, possibly undesirable, 
results). Position the cursor at the 
point in the text immediately before 
where insertion should begin (for the 
first character in a file, insert a 
line before your text and later delete 
it). Then press <FCTN 9> or <CTRL C> 
to enter Command Mode. Key <RS> 
<ENTER>. Then, key the column number 
twice, the string to be replaced as 
null (no character, not even a blank) 
and the string to insert, as follows: 

//R/ 

"R" is the character to be inserted. 
The column for insertion is the first 
column (0). Upon pressing <ENTER>, 
the "Replace String (Yes, No, All, Stop)?" 
prompt will appear, allowing insertion 
in all or selected lines. 

So, is there anything special we 
can do with insert? Sure! One idea is 
to add a printer tab command 
(character 9) to the beginning of a 
line(s) or imbedded within a line(s). 
To use character 9, you'll need to go 
into Special Character Mode, by 
pressing (CTRL U>, then <SHIFT I>, 
followed by another <CTRL U> to return 
to Fixed Mode. You'll see a small "9" 
with a small dot above it on your 
screen. Of course, before you use the 
printer tab, you'll need to send the 
commands to the printer for horizontal 
tab positions, using (for most 
printers) ESC D nn...n nul. For a 
guide to using Special Character Mode, 
which would be required to set the 



*\ 




"% 
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horizontal tab positions, refer to 
page 146 of the Tl-Writer manual. The 
key sequence to establish one tab at 
printer column 41 would be <CTRL U>, 
<FCTN> <R>, <CTRL U>, <D>, <)>, <CTRL 
U>, <SHIFT 2>, <CTRL U>. 

The reverse process, to delete 
characters, will also work. The 
following is a valid command: 



/%// 

Again, the parameter 
blank on the printed 

a null, no character. 



that 
page 



may appear 
is actually 



Have fun with Replace String! 



In Memorium 



On April 5, 1986, Thomas P. 
Weithofer passed away at the age of 
21. Among Tom's accomplishments was 
authoring PILOT 99, a Fairware 
Computer-Assisted Instruction program 
written in FORTH. 



family suggests 

may make memorial 



Fibrosis Research 



The Weithofer 
that those who wish 
contributions to: 

The National Cystic 

Foundation 
3379 Peach Tree Rd. NE 
Atlanta, GA 30326 



Details as to the continued 
availability of PILOT 99 will be 

announced in the near future. 



Extended BASIC screen for printing 
through the Formatter of Tl-Writer, 
building a numeric keypad for the 
99/4A, working with the CorComp Disk 
Controller's Toolshed statements, 
using a 40 column screen from Extended 
BASIC and many more topics. 

The issues of The Smart Programmer 
released by Millers Graphics have been 
sold out for quite some time. Due to 
the demand for those issues, we are 
considering re-prints and hope to 
announce the date of availability 
soon. 

The non~FORTH programs from Super 
99 Monthly are available as a two-disk 
set. 

Super 99 Handicapper is a 
thoroughbred horse racing handicapping 
aid. It converts key numbers into 
more understandable figures and offers 
a morning line figure. Version 2.0 of 
the program will soon be available. 

We have several more software 
products in the works. Let us know 
what you'd like to see us produce. 
Our projects will likely be oriented 
toward applications software for small 
businesses and families. 

We're working on release of a 
catalog and will announce its 
availability soon. In the meantime, 
thanks for your patience during our 
transition period. Your response to 
our producing The Smart Programmer has 
been overwhelming. Now that 
everything is set up, we'll be back to 
prompt shipments again. 



Bytemaster Products 



Diskazine 



Many of you have inquired about 
products available from Bytemaster 
(for prices, see page 16). 

All 18 issues of Super 99 Monthly 
(Volume I, Issues 1-12; Volume II, 
Issues 1-6) are currently available as 
back issues (but are going very fast). 
There were many topics covered, 
including creating Multiplan™ SYLK 
files from Extended BASIC, dumping an 



For those of you looking for 
another reliable source of information 
for the 99/4 A, try Genial TRAVelER, a 
diskazine (magazine on disk). Barry 
A. Traver is the Editor. A subscription 
is $30 (U.S. and Canada), $50 (overseas) 
for 6 issues and is available from Genial 
Computerware, 835 Green Valley Drive, 
Philadelphia, PA 19128. 
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BYTEMASTER ORDER FORM 

The Smart Programmer 



$18.00 U.S. AND CANADA FIRST CLASS 

$15.00 U.S. THIRD CLASS 

$20.00 FOREIGN SURFACE 

$32.00 FOREIGN AIRMAIL 



Name 



Address 
City 



State 



Super 99 Monthly 

$18.00 Complete set of back issues 

$ 1.00 Back issues - ea. (U.S. Third Class) 

$ 1.50 Back issues - ea. {Canada and U.S. 

First Class) 
$ 2.50 Back issues - ea. (Foreign Air Mail) 

$12.00 Programs on disk (non-FORTH) 

~i $15.00 Super 99 Handicapper 

(req. XB , 32K, Disk, Printer) 



Zip Code 
Country 



Payments accepted by 
check or money order 
in U.S. Funds, coded 
for processing through 
the U.S. Federal 
Reserve Ban-king System 
No billings or credit 
sales. Dealer 
inquiries invited. 
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